unit uShapeText;

interface

uses
  uShape, Graphics, Vcl.Controls;

const
  textDefSize  = 8;
  textDefColor = clBlack;

type
  TShapeText = class(TGabrielaShape)
    strict private
      aText:  String;
      aSize:  Integer;
      aColor: Integer;
    public
      property Text: String   read aText  write aText;
      property Size: Integer  read aSize  write aSize;
      property Color: Integer read aColor write aColor;

      constructor Create(paPosX: Integer; paPosY: Integer; paParent: TWinControl; paText: String;
                         paSize: Integer  = textDefSize;
                         paColor: Integer = textDefColor);
      destructor  Destroy; override;
  end;

implementation

uses
  UITypes;

{ TShapeText }

constructor TShapeText.Create(paPosX, paPosY: Integer; paParent: TWinControl; paText: String;
                              paSize: Integer; paColor: Integer);
begin
  inherited Create(paPosX,paPosY,paParent);
  aText  := paText;
  aSize  := paSize;
  aColor := paColor;
end;

destructor TShapeText.Destroy;
begin
  aText := '';
  inherited;
end;

end.
